home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / hlpsy203.zip / HELPTEST.PRG < prev    next >
Text File  |  1994-03-10  |  902b  |  29 lines
  1. * This is a small program that can be used for testing the HelpSys package.
  2. * To create the Test data see the MAKETEST program.
  3. * HelpSys2.03 test
  4. * For normal .DBF and .NTX testing, leave both comment sections below
  5. * commented
  6. *
  7. MEMVAR GetList
  8.  
  9. PROCEDURE Main()
  10. * * * * FOR COMIX * * * * * * * *
  11. *  REQUEST DBFCMX             // Force a link to FlexFile
  12. *  RDDSETDEFAULT("DBFCMX")    // Set the Default RDD to Comix
  13. * * * * FOR FLEXFILE* * * * * * *
  14. *  REQUEST FLEXFILE           // Force a link to FlexFile
  15. *  RDDSETDEFAULT("FLEXFILE")  // Set the Default RDD to FlexFile
  16. * * * * * * * * * * * * * * * * *
  17. *  V_SUPERRDD("DBFCMX")       // Set COMIX on top of FlexFile
  18. * * * * * * * * * * * * * * * * *
  19.  
  20.    USE Test INDEX TEST1,TEST2,TEST3
  21.    CLEAR SCREEN
  22.  
  23.    @ 1, 3 GET Test->Field1
  24.    @ 3, 3 GET Test->Field2
  25.    @ 4, 3 GET Test->Field3
  26.    READ
  27. RETURN
  28.                   
  29.